home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 23 / Commodore_Disc_23_19xx_-_de.d64 / pmc demo (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  30 lines
  1. 0 rem professional menu control demo    ----  (c) 1986 by fridtjof siebert  ----
  2. 10 ifl=0thenl=1:load"pro menu control",8,1:rem laden
  3. 20 poke53280,4:poke53281,15:rem farben
  4. 30 sys 52113:rem menu control initialisieren
  5. 40 .r,0,0,310,190:rem rahmen setzten (ganzer bildschirm)
  6. 99 rem -----  bildschirmaufbau  --------
  7. 100 print"[144][147][207][183][183][183][183][183][183][183][183][208][207][183][183][183][183][183][183][183][183][208][207][183][183][183][183][183][183][183][183][208][207][183][183][183][183][183][183][183][183][208]";
  8. 110 print"[165] cursor [167][165] paper  [167][165] border [167][165] sprite [167]";
  9. 120 print"[204][175][175][175][175][175][175][175][175][186][204][175][175][175][175][175][175][175][175][186][204][175][175][175][175][175][175][175][175][186][204][175][175][175][175][175][175][175][175][186]";
  10. 130 fori=0to7:poke646,i:print"     [157][157][157][157][157]     [157][157][157][157][157]     [145][145]";:next:print"";
  11. 140 fori=8to15:poke646,i:print"     [157][157][157][157][157]     [157][157][157][157][157]     [145][145]";:next
  12. 150 printchr$(13)tab(35)"[144][207][183][183][208][157][157][157][157][165]ok[167][157][157][157][157][204][175][175][186]"
  13. 199 rem -----  punkte setzen  ----------
  14. 200 .n,21:rem 21 punkte
  15. 210 fori=1to4:.p,i,i*10-10,1,i*10-1,3,1#a:next:rem obere leiste punkt 1-4
  16. 220 fori=0to7:.p,6+i,i*5,4,i*5+4,6,0:.p,14+i,i*5,7,i*5+4,9,0:next:remfarben6-21
  17. 230 .p,5,35,10,38,12,2:rem ok punkt 5
  18. 240 .a,1:a=1:rempunkt1 (cursor) activieren , variable a auf 1 fuer on ... gosub
  19. 250 .k,160,50:rem pfeil position
  20. 299 rem -----  start  ------------------
  21. 300 .s,10:rem pro menu control starten , tempo 10
  22. 310 ifst=5thenend:rem ok angetippt
  23. 320 ifst<5thena=st:goto300:obere leiste angetippt : neues a
  24. 330 onagosub1000,1100,1200,1300:goto300:rem farbe angetippt : setzen
  25. 999 rem------- farben aendern ----------
  26. 1000 poke646,st-6:print"test[145]":return:rem cursorfarbe
  27. 1100 poke53281,st-6:return:rem hintergrund
  28. 1200 poke53280,st-6:return:rem rahmen
  29. 1300 poke53287,st-6:return:rem sprite
  30.